home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / commodore-users-of-norman / CUON_09_(08-1984).d64 / multi-draw 64 (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  13KB  |  319 lines
  1. 0 REM MANY THANKS TO MRS. BYRNE WHO GAVE ME A CHANCE TO WRITE THIS.
  2. 1 REM MANY REGARDS ALSO TO MR. JIM      BUTTERFIELD WHO FIXED MY SPLIT-SCREEN.
  3. 2 REM **************************************************************************
  4. 3 REM MAKE SURE YOU RAISED BASIC BY     TYPING  POKE44,64:POKE64*256,0:NEW
  5. 4 REM BEFORE ENTERING OR LOADING THIS !!****************************************
  6. 5 ONAGOTO981,982,983
  7. 6 IFPEEK(44)<>64THENPRINT"[147]BASIC HAS NOT BEEN MOVED. RESTART !!!":LIST2-4
  8. 7 POKE3846,226:POKE53281,6:POKE53280,14:POKE178,0:POKE179,16:PRINT"[154]"CHR$(142)
  9. 10 PRINT"[147]             MULTI-DRAW 64"
  10. 15 PRINT"             BY: PETE LOBL"
  11. 16 PRINT"            VERSION 5/31/83"
  12. 20 PRINT"PLEASE WAIT, READING IN MACHINE CODE..."
  13. 30 DIMC$(15),CH%(11):P$="":FORI=1TO22:P$=P$+"":NEXT:FORI=0TO15:READC$(I):NEXT
  14. 40 FORI=1TO10:READX%(I),Y%(I):NEXT
  15. 50 C1=6:C2=2:C3=1:CC=1:K$="JOY":K=0:P=1:PE$="DOW":TB=14:MB=15:X=64:Y=88:CE=6
  16. 60 PE=1:MV=1:FS$="FAS":FS=1:PL=864:CL=3072:RV=3200:FL=3328:RJ=3584:IN=3712
  17. 65 POKE2040,35:POKE2041,39:POKE2042,43:POKE2043,47:POKE53277,15:POKE53271,4
  18. 67 FORI=53287TO53291:POKEI,1:NEXT:POKE53264,7:CX=828:CY=829
  19. 68 FORI=53248TO53252STEP2:POKEI,32:NEXT
  20. 69 POKE53251,128:POKE53249,104:POKE53253,170
  21. 70 GOSUB1000: REM READ IN ML
  22. 80 FORI=1TO63:READA:POKE2240+I,A:NEXT:POKE2240,99
  23. 82 FORI=0TO63:READA:POKE2496+I,A:NEXT
  24. 84 FORI=0TO63:READA:POKE2752+I,A:NEXT
  25. 86 FORI=0TO63:READA:POKE3008+I,A:NEXT
  26. 88 FORI=0TO35:READA:POKE4608+I,A:NEXT
  27. 90 YC=53255:XC=53254:X1=6:Y1=43
  28. 92 POKEXC,X*2+X1:POKEYC,Y+Y1:SYSIN:POKE53274,241:POKE56334,0:SYSCL
  29. 93 POKE689,TB:POKE704,MB:POKE53269,15:PRINTP$"":GOSUB990:GOSUB840:POKE53280,C1
  30. 94 POKE848,CC:POKE849,C1:POKE850,C2:POKE851,C3:POKE53269,7
  31. 96 FORI=0TO175:POKECY,I:POKECX,0:SYSPL:POKECX,124:SYSPL:NEXT
  32. 98 FORI=0TO124:POKECX,I:POKECY,0:SYSPL:POKECX,I:POKECY,175:SYSPL:NEXT
  33. 99 POKE53269,15:POKE198,0:H=124:HY=175
  34. 100 IFKTHEN120
  35. 105 POKE650,.:SYSRJ:A=PEEK(679):IFA=.THEN120
  36. 107 Q=X%(A)*MV+X:R=Y%(A)*MV+Y:IFQ>HTHENQ=Q-H-1:GOTO109
  37. 108 IFQ<.THENQ=H+Q+1
  38. 109 IFR>HYTHENR=R-HY-1:GOTO111
  39. 110 IFR<.THENR=HY+R+1
  40. 111 X=Q:Y=R:POKECX,X:POKECY,Y:IFPETHENSYSPL
  41. 112 IFFS=0THENGOSUB850
  42. 113 POKEXC,X*2+X1:POKEYC,Y+Y1:GOTO100
  43. 120 GETA$:IFA$=""THEN100
  44. 121 IFK=0THEN138
  45. 122 POKE650,128:IFA$<>"I"THEN124
  46. 123 A=2:GOTO107
  47. 124 IFA$<>"U"THEN126
  48. 125 A=8:GOTO107
  49. 126 IFA$<>"J"THEN128
  50. 127 A=6:GOTO107
  51. 128 IFA$<>"N"THEN130
  52. 129 A=10:GOTO107
  53. 130 IFA$<>"M"THEN132
  54. 131 A=4:GOTO107
  55. 132 IFA$<>","THEN134
  56. 133 A=7:GOTO107
  57. 134 IFA$<>"K"THEN136
  58. 135 A=3:GOTO107
  59. 136 IFA$<>"O"THEN138
  60. 137 A=5:GOTO107
  61. 138 POKE198,0:IFA$<>"-"THEN141
  62. 139 IFKTHENK=0:K$="JOY":GOSUB990:GOSUB840:GOTO100
  63. 140 K=1:K$="KEY":GOSUB990:GOSUB840:GOTO100
  64. 141 IFA$<>"E"THEN143
  65. 142 CC=0:POKE848,0:GOSUB990:GOSUB840:GOTO100
  66. 143 IFA$="R"THENSYSRV:GOTO100
  67. 145 IFA$="[136]"THENA=PEEK(704):A=(A+1)*-(A<15):POKE704,A:GOTO100
  68. 146 IFA$="[140]"THENA=PEEK(704):A=A-1:A=A+((SGN(A)=-1)*(-16)):POKE704,A:GOTO100
  69. 147 IFA$="^"THENA=PEEK(689):A=(A+1)*-(A<15):POKE689,A:GOTO100
  70. 148 IFA$="*"THENA=PEEK(689):A=A-1:A=A+((SGN(A)=-1)*(-16)):POKE689,A:GOTO100
  71. 149 IFA$="/"THENA=PEEK(53290):A=(A+1)*-(A<255):POKE53290,A:GOTO100
  72. 150 IFA$="?"THENA=PEEK(53290):A=A-1:A=A+((SGN(A)=-1)*(-256)):POKE53290,A:GOTO100
  73. 153 IFA$<>"\"THEN156
  74. 154 IFFSTHENFS=0:FS$="SLO":GOTO180
  75. 155 FS=1:FS$="FAS":GOTO180
  76. 156 IFA$<>"+"THEN159
  77. 157 IFPEEK(53269)=15THENPOKE53269,7:GOTO100
  78. 158 POKE53269,15:GOTO100
  79. 159 IFA$<>"P"THEN162
  80. 160 IFPETHENPE=0:PE$="UP ":GOSUB990:GOSUB840:GOTO100
  81. 161 PE=1:PE$="DOW":GOSUB990:GOSUB840:GOTO100
  82. 162 IFA$<>""THEN164
  83. 163 SYSCL:GOSUB990:GOSUB840:GOTO90
  84. 164 IFA$<>"L"THEN166
  85. 165 GOSUB950:GOSUB990:GOSUB840:GOTO100
  86. 166 IFA$<>"S"THEN168
  87. 167 GOSUB900:GOSUB990:PRINTP$"[145][145]":GOSUB840:GOTO100
  88. 168 IFA$<>"M"THEN170
  89. 169 GOSUB182:POKE53269,0:GOSUB860:GOSUB870:POKE3846,226:POKE53269,15:GOTO184
  90. 170 IFA$<>"X"THEN200
  91. 171 POKE53269,0:GOSUB860:PRINT"[147]I HOPE YOU HAD FUN, SEE YA' NEXT TIME"
  92. 172 PRINT"OH, WHY DON'T YOU EXPERIMENT WITH"
  93. 173 PRINT"LOCATION 3846. POKE DIFFERENT NUMBERS"
  94. 174 PRINT"THERE.  YOU MAY NOT KNOW IT, BUT YOU'LL"
  95. 175 PRINT"BE CONTROLLING THE RASTER INTERRUPT!!!"
  96. 176 PRINT"TILL NEXT TIME, HAVE FUN..............":END
  97. 180 GOSUB990:GOSUB840:GOTO100
  98. 182 PRINTP$"             PLEASE WAIT               [146]"P$
  99. 183 A=5376:B=1024:C=2023:FORI=BTOC:POKEA,PEEK(I):A=A+1:NEXT:RETURN
  100. 184 A=5376:B=1024:C=2023:FORI=BTOC:POKEI,PEEK(A):A=A+1:NEXT:GOSUB840:GOTO100
  101. 199 REM COMMANDS CONTINUED ****
  102. 200 IFA$<>"Q"THEN204
  103. 201 GOSUB990:PRINTP$:INPUT"NEW INCREMENT ";A$:A=INT(VAL(A$)):IFA<1THENA=1
  104. 202 IFA>9THENA=9
  105. 203 MV=A:GOSUB990:GOSUB840:GOTO100
  106. 204 IFA$<>":"THEN209
  107. 205 A=CE:A=(A+1)*-(A<15):POKE848+CC,A:GOSUB990:CE=A:POKE53280,CE
  108. 206 IFCC=2THENC2=A:GOSUB840:GOTO100
  109. 207 IFCC=3THENC3=A:GOSUB840:GOTO100
  110. 208 C1=A:GOSUB840:GOTO100
  111. 209 IFA$<>"D"THEN214
  112. 210 A=CE:A=A-1:A=A+((SGN(A)=-1)*(-16)):GOSUB990:CE=A:POKE53280,CE
  113. 211 POKE848+CC,A:IFCC=2THENC2=A:GOSUB840:GOTO100
  114. 212 IFCC=3THENC3=A:GOSUB840:GOTO100
  115. 213 C1=A:GOSUB840:GOTO100
  116. 214 IFA$<>"[133]"THEN216
  117. 215 POKE848,1:CE=C1:CC=1:POKE53280,CE:GOSUB990:GOSUB840:GOTO100
  118. 216 IFA$<>"[134]"THEN218
  119. 217 POKE848,2:CE=C2:CC=2:POKE53280,CE:GOSUB990:GOSUB840:GOTO100
  120. 218 IFA$<>"[135]"THEN220
  121. 219 POKE848,3:CE=C3:CC=3:POKE53280,CE:GOSUB990:GOSUB840:GOTO100
  122. 220 IFA$<>"F"THEN100
  123. 221 GOSUB990:PRINTP$:INPUT"COLOR # ";A$:A=INT(VAL(A$)):IFA<1ORA>3THENA=1
  124. 222 POKE674,A:GOSUB990:PRINTP$:INPUT"COLOR VALUE ";A$:A=INT(VAL(A$))
  125. 223 IFA<0ORA>15THENA=0
  126. 224 POKE675,A:SYSFL:GOSUB990:GOSUB840:GOTO100
  127. 840 REM PRINT BOTTOM 3 LINES *****
  128. 841 GOSUB990:PRINTP$"NUM[146]"STR$(CC)" COL[146] "C$(CE)" "K$"[146] INC[146]"STR$(MV);
  129. 842 PRINT" PEN[146] "PE$" SPE[146] "FS$
  130. 843 PRINT"COL1[146] "C$(C1)" COL2[146] "C$(C2)" COL3[146] "C$(C3)" X[146]"X;
  131. 844 PRINT"Y[146]"Y
  132. 845 RETURN
  133. 850 REM PRINT NEW X AND Y *****
  134. 851 PRINTP$""TAB(27)"X[146]          [157][157][157][157][157][157][157][157][157][157]"X"Y[146]"Y:RETURN
  135. 860 REM MOVE RASTER UP *******
  136. 865 POKE3846,0:RETURN
  137. 867 LOC.3846 = LOCATION TO START PUTTING    THE NORMAL TEXT AT (Y COORDINATE)
  138. 870 REM LIST COMMANDS *****
  139. 872 PRINT"[147]  U  I  O"
  140. 874 PRINT"   [205] [221] [206]"
  141. 876 PRINT"  J[192][192][219][192][192]K   KEYS TO MOVE CURSOR"
  142. 878 PRINT"   [206] [221] [205]    ( OR USE JOYSTICK )"
  143. 880 PRINT"  N  M  ,"
  144. 881 PRINT"P = TOGGLES BETWEEN PEN UP AND PEN DOWN"
  145. 882 PRINT"F1,F3,F5 = CHANGE TO COLORS 1,2,3"
  146. 883 PRINT": = INCREMENT CURRENT COLOR"
  147. 884 PRINT"D = DECREMENT CURRENT COLOR"
  148. 885 PRINT"- = TOGGLES JOYSTICK/KEY MOVEMENT"
  149. 886 PRINT"S = SAVE SCREEN"
  150. 887 PRINT"L = LOAD SCREEN"
  151. 888 PRINT"F7,F8 = INC/DEC HI-RES BACKGROUND COLOR"
  152. 889 PRINT"E = CHANGE TO ERASE MODE (COLOR 0)"
  153. 890 PRINT"[HOME] = CLEARS HI-RES SCREEN"
  154. 891 PRINT"+ = TOGGLES CURSOR ON/OFF"
  155. 892 PRINT"F = FILLS SCREEN WITH A COLOR"
  156. 893 PRINT"R = REVERSES SCREEN"
  157. 894 PRINT"Q = CHANGE CURSOR INCREMENT"
  158. 895 PRINT"\ = TOGGLE FAST/SLOW CURSOR MOVEMENT"
  159. 896 PRINT"/,[SHIFT]/ = INC/DEC CURSOR COLOR"
  160. 897 PRINT"^,* = INC/DEC TEXT BACKGROUND"
  161. 898 PRINT"X = EXITS PROGRAM"
  162. 899 PRINT"HIT SPACE BAR TO RETURN[146]":WAIT197,32,0:RETURN
  163. 900 REM SAVE SUB******
  164. 902 NA$="":GOSUB990
  165. 905 PRINTP$;:INPUT"NAME OF SCREEN    [157][157][157]";NA$
  166. 910 PRINTP$;:INPUT"TAPE OR DISK (T/D)         [157][157][157][157][157][157][157][157]";DV$
  167. 915 IFNA$=""ANDDV$="D"THENRETURN
  168. 920 IFLEN(NA$)>15THENRETURN
  169. 921 GOSUB990
  170. 922 PRINTP$"             PLEASE WAIT               [146]"P$
  171. 925 POKE3846,0:IFDV$="T"THEND=1:GOTO927
  172. 926 D=8
  173. 927 POKE4611,D:POKE4618,LEN(NA$)+1:A=1:NA$=NA$+"1"
  174. 928 PRINTP$;:FORI=1TOLEN(NA$):POKE4863+I,ASC(MID$(NA$,I,1)):NEXT
  175. 929 IFA=1THENPOKE4627,4:POKE4631,0:POKE4639,7:POKE4637,127
  176. 931 IFA=2THENPOKE4627,32:POKE4631,0:POKE4639,62:POKE4637,0
  177. 933 IFA=3THENPOKE4627,216:POKE4631,0:POKE4639,219:POKE4637,127
  178. 935 SYS4608:NA$=LEFT$(NA$,LEN(NA$)-1)
  179. 937 A=A+1:IFA=2THENNA$=NA$+"2":GOTO928
  180. 939 IFA=3THENNA$=NA$+"3":GOTO928
  181. 941 GOSUB990:PRINT"":POKE3846,226:POKE56334,0:RETURN
  182. 950 REM LOAD SUB******
  183. 952 NA$="":GOSUB990
  184. 955 PRINTP$;:INPUT"NAME OF SCREEN    [157][157][157]";NA$
  185. 960 PRINTP$;:INPUT"TAPE OR DISK (T/D)         [157][157][157][157][157][157][157][157]";DV$
  186. 965 IFNA$=""ANDDV$="D"THENRETURN
  187. 970 IFLEN(NA$)>15THENRETURN
  188. 972 GOSUB990
  189. 975 PRINTP$"            PLEASE WAIT                [146]"P$;
  190. 976 POKE3846,0:IFLEFT$(DV$,1)="T"THEND=1:GOTO980
  191. 977 D=8
  192. 980 PRINTP$"[145]";:NA$=NA$+"1":A=1:LOADNA$,D,1
  193. 981 PRINTP$"[145]";:A=A+1:NA$=LEFT$(NA$,LEN(NA$)-1):NA$=NA$+"2":LOADNA$,D,1
  194. 982 PRINTP$"[145]";:A=A+1:NA$=LEFT$(NA$,LEN(NA$)-1):NA$=NA$+"3":LOADNA$,D,1
  195. 983 POKE3846,226:POKE56334,0:GOSUB990:GOSUB840:GOTO100
  196. 990 REM CLEAR TEXT *****
  197. 992 FORI=1904TO2023:POKEI,32:NEXT:RETURN
  198. 1000 FORI=1TO11:READCH%(I):NEXT
  199. 1010 B=1:T=0
  200. 1020 READA$:TE=VAL(A$):IFA$="E"THEN1040
  201. 1025 IFA$="F"THEN1050
  202. 1030 T=T+TE:GOTO1020
  203. 1040 IFT=CH%(B)THENB=B+1:T=0:GOTO1020
  204. 1045 PRINT"ERROR IN DATA BLOCK"B:END
  205. 1050 IFT=CH%(B)THEN1060
  206. 1055 PRINT"ERROR IN DATA BLOCK"B:END
  207. 1060 PRINT"DATA CORRECT, NOW ENTERING..."
  208. 1065 RESTORE:FORI=1TO47:READA$:NEXT
  209. 1070 A=864:B=953:GOSUB1200:A=2048:B=2200:GOSUB1200:A=2304:B=2468:GOSUB1200
  210. 1080 A=2560:B=2728:GOSUB1200:A=2816:B=2932:GOSUB1200:A=3072:B=3174:GOSUB1200
  211. 1090 A=3200:B=3237:GOSUB1200:A=3328:B=3465:GOSUB1200:A=3584:B=3635:GOSUB1200
  212. 1100 A=3712:B=3746:GOSUB1200:A=3840:B=3920:GOSUB1200
  213. 1150 PRINT"DATA ENTERED !!!":RETURN
  214. 1200 FORI=ATOB:READT:POKEI,T:NEXT:READA$:RETURN
  215. 2999 REM COLOR TRANSLATE DATA *****
  216. 3000 DATABLK,WHT,RED,CYN,PUR,GRN,BLU,YEL,ORG,BRN,LRD,DGR,MGR,LGN,LBL,LGR
  217. 3009 REM JOYSTICK ARRAY DATA ******
  218. 3010 DATA,,,-1,1,,,1,1,-1,-1,,1,1,-1,-1,,,-1,1
  219. 5900 REM CHECKSUMS *****
  220. 5910 DATA10078,18217,19331,19145,13292,10587,4275,12661,4922,3396,9730
  221. 6000 REM BLOCK 1 *******
  222. 6005 DATA14,60,3,173,66,3,201,1,240,19,162,0,189,170,3,157,66,3
  223. 6010 DATA189,178,3,157,84,3,232,224,8,208,239,160,0,132,249,169,32
  224. 6020 DATA133,250,173,80,3,240,20,201,3,240,19,132,253,162,4,134,254
  225. 6030 DATA201,1,240,3,76,0,9,76,0,10,76,0,11,132,251,169,216
  226. 6040 DATA133,252,76,0,8,1,2,4,8,16,32,64,128,254,253,251,247
  227. 6050 DATA239,223,191,127,E
  228. 6060 REM BLOCK 2 *******
  229. 6065 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3
  230. 6070 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169
  231. 6080 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165
  232. 6090 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240
  233. 6100 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249
  234. 6110 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,66
  235. 6120 DATA3,17,249,145,249,202,189,66,3,17,249,145,249,174,63,3,24
  236. 6130 DATA240,14,165,251,105,40,133,251,144,3,230,252,24,202,208,242,165
  237. 6140 DATA251,109,62,3,133,251,144,2,230,252,173,83,3,145,251,96,E
  238. 6150 REM BLOCK 3 *******
  239. 6155 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3
  240. 6160 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169
  241. 6170 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165
  242. 6180 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240
  243. 6190 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249
  244. 6200 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,66
  245. 6210 DATA3,17,249,145,249,202,189,84,3,49,249,145,249,174,63,3,24
  246. 6220 DATA240,14,165,253,105,40,133,253,144,3,230,254,24,202,208,242,165
  247. 6230 DATA253,109,62,3,133,253,144,2,230,254,173,82,3,41,15,141,62
  248. 6240 DATA3,177,253,41,240,13,62,3,145,253,96,E
  249. 6250 REM BLOCK 4 *******
  250. 6255 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3
  251. 6260 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169
  252. 6270 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165
  253. 6280 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240
  254. 6290 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249
  255. 6300 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,84
  256. 6310 DATA3,49,249,145,249,202,189,66,3,17,249,145,249,174,63,3,24
  257. 6320 DATA240,14,165,253,105,40,133,253,144,3,230,254,24,202,208,242,165
  258. 6330 DATA253,109,62,3,133,253,144,2,230,254,173,81,3,41,15,10,10
  259. 6340 DATA10,10,141,62,3,177,253,41,15,13,62,3,145,253,96,E
  260. 6350 REM BLOCK 5 *******
  261. 6355 DATA173,60,3,74,74,74,141,62,3,173,61,3,74,74,74,141,63,3
  262. 6360 DATA173,61,3,41,7,141,64,3,173,60,3,41,7,141,65,3,169
  263. 6370 DATA7,56,237,65,3,141,65,3,174,63,3,24,240,16,230,250,165
  264. 6380 DATA249,105,64,133,249,144,3,230,250,24,202,208,240,174,62,3,240
  265. 6390 DATA14,165,249,105,8,133,249,144,3,230,250,24,202,208,242,165,249
  266. 6400 DATA109,64,3,133,249,144,3,230,250,24,174,65,3,160,0,189,84
  267. 6410 DATA3,49,249,145,249,202,189,84,3,49,249,145,249,96,E
  268. 6420 REM BLOCK 6 *******
  269. 6425 DATA160,0,162,32,142,67,12,232,142,70,12,232,142,73,12,232,142,76
  270. 6430 DATA12,173,33,208,10,10,10,10,141,176,2,173,33,208,41,15,13
  271. 6440 DATA176,2,153,0,216,153,0,217,153,0,218,153,232,218,153,0,4
  272. 6450 DATA153,0,5,153,0,6,153,232,6,200,208,229,152,153,0,60,153
  273. 6460 DATA0,61,153,0,62,153,0,63,200,208,241,174,67,12,224,60,240
  274. 6470 DATA15,238,67,12,238,70,12,238,73,12,238,76,12,76,65,12,96,E
  275. 6480 REM BLOCK 7 *******
  276. 6485 DATA160,0,162,32,142,140,12,142,145,12,185,0,32,73,255,153,0,32,200
  277. 6490 DATA208,245,173,140,12,201,63,240,9,238,140,12,238,145,12,76,138,12,96,E
  278. 6540 REM BLOCK 8 *******
  279. 6545 DATA160,0,173,163,2,174,162,2,224,1,240,20,224,2,240,71,153
  280. 6550 DATA0,216,153,0,217,153,0,218,153,0,219,200,208,241,96,10,10
  281. 6560 DATA10,10,141,164,2,185,0,4,41,15,13,164,2,153,0,4,185,0
  282. 6570 DATA5,41,15,13,164,2,153,0,5,185,0,6,41,15,13,164,2
  283. 6580 DATA153,0,6,185,232,6,41,15,13,164,2,153,232,6,200,208
  284. 6590 DATA209,96,141,164,2,185,0,4,41,240,13,164,2,153,0,4,185
  285. 6600 DATA0,5,41,240,13,164,2,153,0,5,185,0,6,41,240,13,164
  286. 6610 DATA2,153,0,6,185,232,6,41,240,13,164,2,153,232,6,200,208,209,96,E
  287. 6620 REM BLOCK 9 *******
  288. 6625 DATA169,0,141,167,2,173,0,220,106,176,9,162,2,142,167,2,106
  289. 6630 DATA76,28,14,106,176,5,162,4,142,167,2,106,176,9,173,167,2
  290. 6640 DATA105,6,141,167,2,96,106,176,8,173,167,2,105,3,141,167,2,96,E
  291. 6650 REM BLOCK 10 *******
  292. 6655 DATA120,169,15,141,21,3,169,0,141,20,3,141,178,2,141,18,208
  293. 6660 DATA173,17,208,41,127,141,17,208,173,25,208,9,1,141,25,208,88,96,E
  294. 6670 REM BLOCK 11 *******
  295. 6675 DATA173,178,2,208,37,169,226,141,18,208,169,59,141,17,208,173,192
  296. 6680 DATA2,141,33,208,169,29,141,24,208,169,24,141,22,208,169,1,141
  297. 6690 DATA25,208,141,178,2,76,49,234,169,252,141,18,208,169,27,141,17
  298. 6700 DATA208,173,177,2,141,33,208,169,21,141,24,208,169,8,141,22,208
  299. 6710 DATA169,1,141,25,208,169,0,141,178,2,76,129,234,F
  300. 6999 REM SPRITE DATA ********
  301. 7000 DATA74,250,85,74,34,73,74,34,65,74,34,65,74,34,65,123,162
  302. 7010 DATA0,0,0,49,198,68,41,41,68,37,41,68,37,207,84,41,41
  303. 7020 DATA84,49,41,40,0,0,0,1,196,0,2,4,128,2,4,128,3
  304. 7030 DATA199,128,2,32,128,1,192,128,0,0,0,0,4,0,0,4,18
  305. 7040 DATA0,7,146,64,4,158,0,7,130,64,0,14,0,0,0,0,61
  306. 7050 DATA239,188,37,2,32,61,194,56,33,2,32,33,226,60,0,8,0
  307. 7060 DATA33,232,64,33,47,64,33,41,64,61,239,120,0,0,0,0,0
  308. 7070 DATA0,0,0,0,0,0,0,0,37,124,136,37,16,216,61,16,168
  309. 7080 DATA37,16,136,37,16,136,0,0,0,15,123,192,8,74,64,14,75
  310. 7090 DATA128,8,74,64,8,122,64,0,0,0,0,0,0,139,232,162,218
  311. 7100 DATA12,162,171,138,162,138,9,162,138,8,162,139,232,190,0,0,0
  312. 7110 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,64,0,0
  313. 7120 DATA64,0,1,240,0,1,16,0,7,28,0,1,16,0,1,240,0
  314. 7130 DATA0,64,0,0,64,0,0,0,0,0,0,0,0,0,0,0,0
  315. 7140 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  316. 7200 REM SAVE ML DATA ******
  317. 7210 DATA169,1,162,8,160,255,32,186,255,169,15,162,0,160,19,32,189,255,169
  318. 7220 DATA4,133,253,169,0,133,252,169,252,162,127,160,7,32,216,255,96
  319.